-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x9000 (can't modify)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=144, y1=139, x2=368, y2=203)
-- screen: Rect(x1=0, y1=0, x2=512, y2=342)
-- card dimensions: w=224 h=64
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2633
-- card count: 1
-- first card id: 2837
-- list block id: 3518
-- print block id: 0
-- font table block id: 2553
-- style table block id: 2229
-- free block count: 0
-- free size: 0 bytes
-- total size: 10336 bytes
-- stack block size: 2560 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x02008000
-- modified by hypercard version: 0x02008000
-- opened by hypercard version: 0x02008000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x613CE6DA
----- HyperTalk script -----
on openStack
  global vPfA
  put 5 into vPfA
end openStack

function binary decimal
if decimal is empty then exit binary
put"128,64,32,16,8,4,2,1" into binSet
repeat with i=1 to 8
  if (decimal/(item i of binSet))<1
  then put "0" after converted
else
  put "1" after converted
  subtract (item i of binSet) from decimal
end if
end repeat
return converted
end binary

function binToChar binary
if binary is empty then exit binToChar
return numToChar(decimal(binary))
end binToChar

function decimal binary
if binary is empty then exit decimal
put "128,64,32,16,8,4,2,1" into binSet
put 0 into converted
repeat with i=1 to 8
  if char i of binary is 1 then add (item i of binSet) to converted
end repeat
return converted
end decimal